home *** CD-ROM | disk | FTP | other *** search
/ Regional Industry Buying Guide: Greater Florida / 2000 Regional Industry Buying Guide - Greater Florida.iso / cs2k / clients / classic / scripts.lib / TTNNET.SCR < prev    next >
Encoding:
Text File  |  1998-09-30  |  1.5 KB  |  79 lines
  1. !
  2. !  Copyright (c) 1998
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  TTN-NET:
  9. !       Connect to TTN-NET
  10. !       Success:  returns %Success
  11. !       Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "4.0.5"
  15. !-V
  16.  
  17. Attempts = 5;
  18. TTN_Address = "CNST";
  19. TTN_Address2 = ".CNST";
  20. on cancel goto Return_Cancel;
  21. show "Connecting to TTN-Net";
  22.  
  23. Wait_TTN:
  24.     if Attempts = 0 goto Return_Failure;
  25.     Attempts = Attempts - 1;
  26.  
  27.     wait
  28.         "?^M^J^M^J*"    goto Send_Address2,
  29.         "?^M^J^M^J@"    goto Send_Address,
  30.         "Host Name"     goto Return_Success,
  31.         "User ID"       goto Return_Success,
  32.         %mdm_Failure    goto Carrier_Lost
  33.     until 180;
  34.  
  35.     send %CR;
  36.     goto Wait_TTN;
  37.  
  38. Connect_9600:
  39.     send "@^M";
  40.     goto Wait_TTN;
  41.  
  42. Connect_Low:
  43.     send "^M.^M";
  44.     goto Wait_TTN;
  45.  
  46.  
  47. Send_Address:
  48.     show "Sending CompuServe Address...";
  49.     wait 
  50.         %mdm_Failure    goto Carrier_Lost
  51.     until 10;
  52.     send TTN_Address & %CR;
  53.     goto Wait_TTN;
  54.  
  55. Send_Address2:
  56.     show "Sending CompuServe Address...";
  57.     wait
  58.         %mdm_Failure    goto Carrier_Lost
  59.     until 10;
  60.     send TTN_Address2 & %CR;
  61.     goto Wait_TTN;
  62.  
  63.  
  64. Return_Failure:
  65.     define %FailureMsg = "TTN-Net not responding";
  66.     exit %Failure;
  67.  
  68. Carrier_Lost:
  69.     define %FailureMsg = "Modem connection lost";
  70.     exit %Failure;
  71.  
  72. Return_Cancel:
  73.     exit %Cancel;
  74.  
  75. Return_Success:
  76.     send %CR;
  77.     exit %Success;
  78.  
  79.